Imports System.ComponentModel
Imports KanBan.Pgd.Common

Public Enum KnowledgeLevel

    <Description("None")> _
    None = 0

    <Description("Regular")> _
    Regular = 1

    <Description("Good")> _
    Good = 2

    <Description("Very Good")> _
    VeryGood = 3

    <Description("Excellent")> _
    Excellent = 4

End Enum

Public Class KnoledgeLevelExtension

    Public Function GetValues() As IList(Of Pair(Of Integer, String))

        Dim returnList As New List(Of Pair(Of Integer, String))()

        returnList.Add(New Pair(Of Integer, String)(0, "None"))
        returnList.Add(New Pair(Of Integer, String)(1, "Regular"))
        returnList.Add(New Pair(Of Integer, String)(2, "Good"))
        returnList.Add(New Pair(Of Integer, String)(3, "Very Good"))
        returnList.Add(New Pair(Of Integer, String)(4, "Excellent"))

        Return returnList

    End Function

End Class
